home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / 2b_mv.lha / MultiView / Install MultiView < prev    next >
Text File  |  1998-03-07  |  41KB  |  1,314 lines
  1. ;
  2. ; $VER: Install MultiView 3.2 (19.12.97)
  3. ;
  4. ; Installer script for MultiView.
  5. ;
  6.  
  7. (set #english-lang    1)
  8. (set #polish-lang     2)
  9. (set #german-lang     4)
  10. (set #norsk-lang      8)
  11. (set #russian-lang   16)
  12. (set #dansk-lang     32)
  13. (set #svenska-lang   64)
  14. (set #italiano-lang 128)
  15. (set #français-lang 256)
  16.  
  17.  
  18. ; Get current language (no need for lots of silly icons! ;). However, this
  19. ; won't properly work for all versions of the Installer. Some don't
  20. ; understand the language "default" in the tool types... :/
  21.  
  22. (if (= (exists "Env:Language") 1)
  23.   ; GetEnv reports "String too long" if the variable doesn't exist! :/
  24.   ; Dunno if this is fixed in V43... But we need to check anyway.
  25.   (set @language (getenv "language"))
  26. )
  27.  
  28.  
  29. ;**************************************************************************
  30. ;
  31. ; English strings
  32. ;
  33.  
  34. (set #default-lang #english-lang)
  35. (set #builtin-lang "(built in)")
  36. (set #bad-kick "You must have AmigaOS Release 2.04 or higher to use MultiView.")
  37. (set #install-parts "Please select the parts you wish to install")
  38. (set #item-program  "MultiView")
  39. (set #item-library  "FileID.library")
  40. (set #item-guide    "MultiView.guide")
  41. (set #item-locale   "Translations")
  42. (set #parts-header-help
  43.   (cat
  44.     "    Here you select the different parts of MultiView that you would like to "
  45.     "install. After that, you select the details of the installation (such as "
  46.     "where the different files should be installed). You may choose to install "
  47.     "the following items:\n"
  48.   )
  49. )
  50.  
  51. (set #item-program-help
  52.   (cat
  53.     "    MultiView: This program is a relacement for C= MultiView and should be "
  54.     "installed in SYS:Utilities/ directory.\n"
  55.   )
  56. )
  57.  
  58. (set #item-library-help
  59.   (cat
  60.     "    FileID.library: This library contains filetype recognizing functions.\n"
  61.   )
  62. )
  63.  
  64. (set #item-guide-help
  65.   (cat
  66.     "    MultiView.guide: The manual, in AmigaGuide® format. It contains "
  67.     "some general information about MultiView.\n"
  68.   )
  69. )
  70.  
  71. (set #item-local-help
  72.   (cat
  73.     "    Translations: If you install a translation, then MultiView  "
  74.     "and FileID.library can operate in the language(s) you select.\n"
  75.   )
  76. )
  77.  
  78. (set #parts-footer-help
  79.   (cat
  80.     "    For more information about these items, please see the manual.\n"
  81.   )
  82. )
  83.  
  84. ; Only for expert users
  85. (set #where-program "Where would you like to install Main program?")
  86. (set #where-program-help
  87.   (cat
  88.     "    MultiView: This program is a replacement for old Multiview written "
  89.     "by Commodore programmers. You should install it in SYS:Utilities.\n"
  90.   )
  91. )
  92. (set #where-library "Where would you like to install FileID.library?")
  93.  
  94. (set #where-library-help
  95.   (cat
  96.     "    FileID.library is a shared library. As such, MultiView"
  97.     "(and applications using it) expects this file to be "
  98.     "avilable via the \"Libs:\"-assign, so please install this "
  99.     "file into the \"Libs:\" drawer, or make sure that the "
  100.     "drawer you install it in will be a part of your "
  101.     "\"Libs:\"-assign.\n"
  102.   )
  103. )
  104.  
  105. (set #where-guide "Where would you like to install MultiView.guide?")
  106.  
  107. (set #where-guide-help
  108.   (cat
  109.     "    MultiView.guide is a file in the standard AmigaGuide® format. "
  110.     "As MultiView currently makes specific use of this file, you can install "
  111.     "it whereever you find convenient. If you have OS 3.0 or higher, "
  112.     "one such place is \"Help:\", as this is where other AmigaGuide® "
  113.     "files often are installed.\n"
  114.   )
  115. )
  116.  
  117. ; Only for expert users, and an icon wasn't found
  118. (set #copy-guide-icon "Do you want to install the icon for MultiView.guide?")
  119.  
  120. (set #copy-guide-icon-help
  121.   (cat
  122.     "    Since you stated that you are an expert user, and there currently "
  123.     "is no icon for MultiView.guide where you selected to install it, "
  124.     "you get a chance to decide if the icon should be installed as well.\n"
  125.   )
  126. )
  127.  
  128. (set #which-language "Which languages should be installed?")
  129.  
  130. (set #which-language-help
  131.   (cat
  132.     "    The Amiga can be operated in many different languages. If you "
  133.     "want MultiView to use the same language as your Amiga Workbench, "
  134.     "then a couple of catalog files must be copied to your harddisk "
  135.     "for each language supported.\n"
  136.     "    To reduce the amount of space consumed by the language files, "
  137.     "you can select to have only the files of specific languages "
  138.     "copied.\n"
  139.     "    Simply check the boxes of the languages you wish to have have "
  140.     "available on your system.\n"
  141.   )
  142. )
  143.  
  144. (set #copy "Copying %s to %s...")
  145.  
  146. ;**************************************************************************
  147. ;
  148. ; Polish strings
  149. ;
  150.  
  151. (if (= @language "polski")
  152.   (
  153.     (set #default-lang #polski-lang)
  154.     (set #builtin-lang "(wbudowany)")
  155.     (set #bad-kick "Musisz mieê system w wersji przynajmniej 2.04.")
  156.     (set #install-parts "Wybierz czëôci, które chcesz zainstalowaê")
  157.     (set #item-program "MultiView")
  158.     (set #item-library "FileID.library")
  159.     (set #item-guide "MultiView.guide")
  160.     (set #item-locale "Tîumaczenia")
  161.  
  162.     (set #parts-header-help
  163.       (cat
  164.         "    Tu moûesz wybraê poszczególne czëôci pakietu do zainstalowania. Potem "
  165.         "wybierzesz gdzie chcesz je zainstalowaê. Do wyboru masz :\n"
  166.       )
  167.     )
  168.  
  169.     (set #item-program-help
  170.       (cat
  171.         "    MultiView: Ten program jest zamiennikiem dla starego MultiView-a napisanego "
  172.         "jeszcze przez ludzi z Commodore. Powinieneô zainstalowaê go w katalogu SYS:Utilities.\n"
  173.       )
  174.     )
  175.  
  176.     (set #item-library-help
  177.       (cat
  178.         "    FileID.library: Ta biblioteka zawiera funkcje do rozpoznawania plików.\n"
  179.       )
  180.     )
  181.  
  182.     (set #item-guide-help
  183.       (cat
  184.         "    MultiView.guide: Dokumentacja w formacie AmigaGuide®.\n"
  185.       )
  186.     )
  187.  
  188.     (set #item-local-help
  189.       (cat
  190.         "    Tîumaczenia: Jeôli chcesz by MultiView i FileID.library mogîy "
  191.         "byê z polskimi komunikatami musisz zainstalowaê odpowiednie katalogi.\n\n"
  192.       )
  193.     )
  194.  
  195.     (set #parts-footer-help
  196.       (cat
  197.         "    Dodatkowe informacje znajdziesz w dokumentacji.\n\n"
  198.       )
  199.     )
  200.  
  201.     ; Only for expert users
  202.     (set #where-program "Gdzie chcesz zainstalowaê gîówny program?")
  203.     (set #where-program-help
  204.       (cat
  205.         "    MultiView: Ten program jest zamiennikiem dla starego MultiView-a napisanego "
  206.         "jeszcze przez ludzi z Commodore. Powinieneô zainstalowaê go w katalogu SYS:Utilties.\n"
  207.       )
  208.     )
  209.  
  210.     (set #where-library "Gdzie chcesz zainstalowaê FileID.library?")
  211.     (set #where-library-help
  212.       (cat
  213.         "    FileID.library jest zwykîâ bibliotekâ. MultiView "
  214.         "i inne programy spodziewajâ sië, ûe znajdâ jâ w Libs:, tak wiëc "
  215.         "musisz jâ zainstalowaê do katalogu bëdâcego czëôciâ twej kolekcji bibliotek.\n"
  216.       )
  217.     )
  218.  
  219.     (set #where-guide "Gdzie chcesz zainstalowaê MultiView.guide?")
  220.     (set #where-guide-help
  221.       (cat
  222.         "    MultiView.guide jest plikiem w standardzie AmigaGuide®. "
  223.         "Proponowanym miejscem jest HELP:\n"
  224.       )
  225.     )
  226.  
  227.     (set #copy-guide-icon "Czy chcesz zainstalowaê ikonë dla MultiView.guide?")
  228.     (set #which-language "Które jëzyki powinny byê zainstalowane ?")
  229.     (set #copy "Kopiujë %s do %s...")
  230.   )
  231. )
  232.  
  233. ;**************************************************************************
  234. ;
  235. ; Hello, do you speak German?
  236. ; Translation by Sönke Tesch [ATO]
  237.  
  238. (if (= @language "deutsch")
  239.   (
  240.     (set #default-lang #german-lang)
  241.     (set #builtin-lang "(eingebaut)")
  242.     (set #bad-kick "Du mußt AmigaOS 2.04 oder höher haben, um MultiView benutzen zu können!")
  243.     (set #install-parts "Bitte wähle die Teile, die du installieren möchtest.")
  244.     (set #item-program "MultiView")
  245.     (set #item-library "FileID.library")
  246.     (set #item-guide "MultiView.guide")
  247.     (set #item-locale "Übersetzungen")
  248.  
  249.     (set #parts-header-help
  250.       (cat
  251.         "    Hier kannst du auswählen, welche Teile von MultiView installiert "
  252.         "werden sollen. Danach werden die Details festgelegt (z.B. wo genau "
  253.         "alles installiert werden soll).\n"
  254.         "Es können folgende Teile installiert werden:\n"
  255.       )
  256.     )
  257.  
  258.     (set #item-program-help
  259.       (cat
  260.         "    MultiView: Dies ist das Ersatzprogramm für C=`s MultiView. Es "
  261.         "sollte in das Verzeichniss SYS:Utilities/ kopiert werden.\n"
  262.       )
  263.     )
  264.  
  265.     (set #item-library-help
  266.       (cat
  267.         "    FileID.library: Mit Hilfe dieser Funktionsbibliothek werden "
  268.         "Dateitypen identifiziert.\n"
  269.       )
  270.     )
  271.  
  272.     (set #item-guide-help
  273.       (cat
  274.         "    MultiView.guide: Die Anleitung, im AmigaGuide® Format. Sie "
  275.         "enhält einige generelle Informationen über MultiView.\n"
  276.       )
  277.     )
  278.  
  279.     (set #item-local-help
  280.       (cat
  281.         "    Übersetzungen: Wenn eine oder mehrere Übersetzungen installiert "
  282.         "werden, können MultiView und die FileID.library in den entsprechenden "
  283.         "Sprachen arbeiten.\n"
  284.       )
  285.     )
  286.  
  287.     (set #parts-footer-help
  288.       (cat
  289.         "    Für weitere Infos schaue bitte in die Anleitung.\n"
  290.       )
  291.     )
  292.  
  293. ; Only for expert users
  294.     (set #where-library "Wo soll die FileID.library installiert werden?")
  295.  
  296.     (set #where-library-help
  297.       (cat
  298.         "    FileID.library ist eine Shared Library. Der vorgesehene Platz "
  299.         "für solche Libraries ist ein Verzeichnis, auf das das LIBS:-Assign "
  300.         "zeigt.\n"
  301.         "Bitte installiere diese Datei also direkt in LIBS: oder, falls du ein "
  302.         "anderes wählst, stelle sicher, daß es über das LIBS:-Assign erreichbar "
  303.         "ist.\n"
  304.       )
  305.     )
  306.  
  307.     (set #where-guide "Wo soll die Anleitung installiert werden?")
  308.  
  309.     (set #where-guide-help
  310.       (cat
  311.         "    Die Anleitung MultiView.guide ist eine Datei im AmigaGuide® Format, "
  312.         "von der MultiView intensiven Gebrauch macht.\n"
  313.         "Wenn du AmigaOS 3.0 oder besseres hast, lege die Datei am besten in "
  314.         "\"Help:\", da das der Platz ist, an den AmigaGuide®-Dateien normalerweise "
  315.         "kopiert werden."
  316.       )
  317.     )
  318.  
  319. ; Only for expert users, and an icon wasn't found
  320.     (set #copy-guide-icon "Soll ein Icon für die Anleitung installiert werden?")
  321.  
  322.     (set #copy-guide-icon-help
  323.       (cat
  324.         "    Da du Experte bist, und an dem Platz, wo die Anleitung installiert "
  325.         "werden soll, kein Icon für sie ist, bekommst du jetzt die Chance zu "
  326.         "entscheiden, ob auch ein Icon installiert werden soll.\n"
  327.       )
  328.     )
  329.  
  330.     (set #which-language "Welche Sprachen sollen installiert werden?")
  331.  
  332.     (set #which-language-help
  333.       (cat
  334.         "    Der Amiga kann von Haus aus in vielen Sprachen mit dir `sprechen`. "
  335.         "Wenn MultiView dieselbe Sprachen benutzen soll, wie deine Workbench, "
  336.         "müssen einige Kataloge auf die Festplatte kopiert werden\n".
  337.         "Um etwas Platz zu sparen, kannst du hier auswählen, welche Sprachen "
  338.         "(und damit welche Kataloge), kopiert werden sollen, indem du einfach "
  339.         "die entsprechenden Kästchen abhakst\n".
  340.       )
  341.     )
  342.  
  343.     (set #copy "Kopiere %s nach %s...")
  344.   )
  345. )
  346.  
  347. ;**************************************************************************
  348. ;
  349. ; Norwegian strings
  350. ;
  351.  
  352. (if (= @language "norsk")
  353.   (
  354.     (set #default-lang #norsk-lang)
  355.     (set #builtin-lang "(innebygget)")
  356.     (set #bad-kick "Du må ha AmigaOS 2.04 eller høyere for å bruke MultiView.")
  357.     (set #install-parts "Vennligst velg de delene du vil installere")
  358.     (set #item-program "MultiView")
  359.     (set #item-library "FileID.library")
  360.     (set #item-guide "MultiView.guide")
  361.     (set #item-locale "Oversettelser")
  362.     (set #parts-header-help
  363.       (cat
  364.         "    Her velger du de delene av MultiView programmet du vil installere."
  365.         "Etter det så velger du detaljene for installasjonen (som f.eks. hvor "
  366.         "de forskjellige filene skal installeres). Du kan velge å installere de"
  367.         "de følgende gjenstandende:\n"
  368.       )
  369.     )
  370.     (set #item-program-help
  371.       (cat
  372.         "    MultiView: Dette er en erstatning for C= MultiView og bør "
  373.         "installeres i katalogen 'SYS:Utilities/'.\n"
  374.       )
  375.     )
  376.  
  377.     (set #item-library-help
  378.       (cat
  379.         "    FileID.library: Dette biblioteket kjenner igjen forskellige "
  380.         "filtyper.\n"
  381.       )
  382.     )
  383.  
  384.     (set #item-guide-help
  385.       (cat
  386.         "    MultiView.guide: Instruksjons-boken, i AmigaGuide® format. Den "
  387.         "inneholder generell informasjon om MultiView.\n"
  388.       )
  389.     )
  390.  
  391.     (set #item-local-help
  392.       (cat
  393.         "    Translations: Hvis du innstallerer en oversettelse så kan MultiView  "
  394.         "og FileID.library kjøres på det språket du har valgt.\n"
  395.       )
  396.     )
  397.  
  398.     (set #parts-footer-help
  399.       (cat
  400.         "    For mer informasjon om disse tingene, se i instruksjons-filen.\n"
  401.       )
  402.     )
  403.  
  404. ; Only for expert users
  405.     (set #where-program "Hvor vil du installere MultiView?")
  406.     (set #where-program-help
  407.       (cat
  408.         "    MultiView: dette er hovedprogrammet og er en forbedring av Commodore MultiView. "
  409.         "Det bør installeres i 'SYS:Utilties/' mappen.\n"
  410.       )
  411.     )
  412.  
  413.     (set #where-library "Hvor vil du installere FileID.library?")
  414.     (set #where-library-help
  415.       (cat
  416.         "    FileID.library er et delt bibliotek som brukes av MultiView (og andre programmer)."
  417.         "Programmene forventer at det ligger i 'Libs:' så vær sikker på at du installerer "
  418.         "det der, eller at stedet hvor du installerer det er en del av 'Libs:' anvisningen.\n"
  419.       )
  420.     )
  421.  
  422.     (set #where-guide "Hvor vil du installere MultiView.guide?")
  423.     (set #where-guide-help
  424.       (cat
  425.         "    MultiView.guide er instruksjonene i standard AmigaGuide® format "
  426.         "som kan installeres hvor du vil. Hvis du har OS 3.0 eller høyere, kan "
  427.         "du installere den i 'HELP:' der slike filer ofte er.\n"
  428.       )
  429.     )
  430.  
  431.     (set #copy-guide-icon "Vil du installere et ikon til MultiView.guide?")
  432.     (set #copy-guide-icon-help
  433.       (cat
  434.         "    Siden du er en ekspert-bruker og det ikke er noe ikon "
  435.         "til MultiView.guide der du har valgt å installere den, "
  436.         "får du nå anledning til å installere et ikon hvis du vil.\n"
  437.       )
  438.     )
  439.  
  440.     (set #which-language "Hvilke språk skal installeres ?")
  441.     (set #which-language-help
  442.       (cat
  443.         "    Amiga kan kjøre programmer på mange forskjellige språk, "
  444.         "MultiView kan også kjøres i det språket du bruker Workbench i.\n"
  445.         "Det du må gjøre er å velge et språk fra listen over støttede "
  446.         "språk.\n"
  447.         "    For å redusere plassen disse filene opptar kan du velge "
  448.         "å kun installere noen av disse språkfilene.\n"
  449.         "    Marker ganske enkelt boksene foran de språkene du vil "
  450.         "ha tilgjengelig på ditt system.\n"
  451.       )
  452.     )
  453.  
  454.     (set #copy "Kopierer %s til %s...")
  455.   )
  456. )
  457. ;**************************************************************************
  458. ;
  459. ; Russian strings
  460. ;
  461. ; NOTE: If it will be need to use in script the name for russian language
  462. ;       then use everywhere only "Russian" or "russian" and no else.
  463. ;       (There isn't native writing for one!)
  464. ;
  465.  
  466. (if (= @language "russian")
  467.   (
  468.     (set #default-lang #russian-lang)
  469.     (set #builtin-lang "(áðñïíäììúè)")
  470.     (set #bad-kick "Ãêþ çðîíêûæíáaìçþ MultiView ìäíàôíãçëí çëäñû áäïðçý AëçâaÍР2.04 çêç áúøä.")
  471.     (set #install-parts "Òéaåçñä íàÿäéñú çìðñaêêþõçç")
  472.     (set #item-program "MultiView")
  473.     (set #item-library "FileID.library")
  474.     (set #item-guide "MultiView.guide")
  475.     (set #item-locale "Îäïäáíãú")
  476.  
  477.     (set #parts-header-help
  478.       (cat
  479.         "    Òéaåçñä öaðñç îaéäña MultiView, éíñíïúä Áú ôíñçñä îïíçìðñaêêçïíáañû. Îíðêä "
  480.         "üñíâí ò Áað àòãòñ òñíöìäìú ãäñaêç çìðñaêêþõçç (ìaîïçëäï, ëaïøïòñú ïaæëäùäìçþ "
  481.         "ïaæêçöìúô óaèêíá îaéäña). Áú ëíåäñä áúàïañû ðêäãòýùçä öaðñç îaéäña:\n"
  482.       )
  483.     )
  484.  
  485.     (set #item-program-help
  486.       (cat
  487.         "    MultiView: Üña îïíâïaëëa þáêþäñðþ æaëäìíè íïçâçìaêûìíè C= MultiView, éíñíïaþ, "
  488.         "éaé îïaáçêí, ïaæëäùäìa á éañaêíâä SYS:Utilities/\n"
  489.       )
  490.     )
  491.  
  492.     (set #item-library-help
  493.       (cat
  494.         "    FileID.library: Üña àçàêçíñäéa ðíãäïåçñ óòìéõçç ïaðîíæìaáaìçþ óaèêñçîíá.\n"
  495.       )
  496.     )
  497.  
  498.     (set #item-guide-help
  499.       (cat
  500.         "    MultiView.guide: Íîçðaìçä, á óíïëañä AmigaGuide®. Ðíãäïåçñ íðìíáìòý "
  501.         "çìóíïëaõçý í MultiView.\n"
  502.       )
  503.     )
  504.  
  505.     (set #item-local-help
  506.       (cat
  507.         "    Îäïäáíãú: Îïç çìðñaêêþõçç îäïäáíãíá îïíâïaëëa MultiView ç FileID.library "
  508.         "ðëíâòñ íîäïçïíáañû òéaæaììúëç þæúéaëç.\n"
  509.       )
  510.     )
  511.  
  512.     (set #parts-footer-help
  513.       (cat
  514.         "    Æa ãíîíêìçñäêûìíè çìóíïëaõçäè íàïaùaèñäðû é íîçðaìçý.\n"
  515.       )
  516.     )
  517.  
  518.     ; Only for expert users
  519.     (set #where-program "Éòãa çìðñaêêçïíáañû îïíâïaëëò?")
  520.     (set #where-program-help
  521.       (cat
  522.         "    MultiView - îïíâïaëëa, îïçæáaììaþ æaëäìçñû íãìíçë½ììòý îïíâïaëëò óçïëú "
  523.         "Commodore. Ïäéíëäìãòäñðþ ïaæëäðñçñû á éañaêíâä SYS:Utilities.\n"
  524.       )
  525.     )
  526.  
  527.     (set #where-library "Éòãa çìðñaêêçïíáañû FileID.library?")
  528.  
  529.     (set #where-library-help
  530.       (cat
  531.         "    FileID.library þáêþäñðþ ïaæãäêþäëíè àçàêçíñäéíè. MultiView, éaé ç ãïòâçä îïíâïaëëú, "
  532.         "ä½ çðîíêûæòýùçä, éaé îïaáçêí, íåçãaäñ ìaêçöçþ üñíè àçàêçíñäéç á ìaæìaöäììíë éañaêíâä "
  533.         "\"Libs:\", îíüñíëò çìðñaêêçïòèñä üñíñ óaèê á éañaêíâ \"Libs:\", çêç òàäãçñäðû, öñí éañaêíâ, "
  534.         "á éíñíïíë Áú ïaæëäðñçñä àçàêçíñäéò, þáêþäñðþ aððçâìíáaììúë é òéaæaììíëò éañaêíâò.\n"
  535.       )
  536.     )
  537.  
  538.     (set #where-guide "Éòãa çìðñaêêçïíáañû MultiView.guide?")
  539.  
  540.     (set #where-guide-help
  541.       (cat
  542.         "    MultiView.guide - ðñaìãaïñìúè óaèê óíïëaña AmigaGuide®. MultiView çðîíêûæòäñ "
  543.         "üñíñ óaèê á íîïäãäê½ììúô ðêòöaþô, îíüñíëò ïaæëäðñçñä üñíñ óaèê îí òãíàðñáò. Äðêç "
  544.         "Áú çëääñä ÍР3.0 çêç áúøä, ñí üñí éañaêíâ\"Help:\", á éíñíïíë, éaé îïaáçêí "
  545.         "ïaðîíêíåäìú ç ãïòâçä óaèêú óíïëaña AmigaGuide®.\n"
  546.       )
  547.     )
  548.  
  549.     ; Only for expert users, and an icon wasn't found
  550.     (set #copy-guide-icon "Çìðñaêêçïíáañû çéíìéò é MultiView.guide?")
  551.  
  552.     (set #copy-guide-icon-help
  553.       (cat
  554.         "    Áú òðñaìíáçêç òïíáäìû çìðñaêêþõçç \"Üéðîäïñ\" ç ëíåäñä îïíçìðñaêêçïíáañû çéíìéò "
  555.         "ãêþ óaèêa MultiView.guide, éíñíïaþ á íàúöìíè ðçñòaõçç ìä çìðñaêêçïòäñðþ.\n"
  556.       )
  557.     )
  558.  
  559.     (set #which-language "Éaéçä þæúéç íàùäìçþ îïíçìðñaêêçïíáañû?")
  560.  
  561.     (set #which-language-help
  562.       (cat
  563.         "    Aëçâa ëíåäñ íîäïçïíáañû ëìíåäðñáíë ïaæêçöìúô þæúéíá. Äðêç Áú ôíñçñä, öñíàú "
  564.         "MultiView çðîíêûæíáaê ñä åä þæúéç, öñí ç Áaø Workbench, ñí ðííñáäñðñáòýùçä éañaêíâç "
  565.         "ãêþ éaåãíâí þæúéa íàùäìçþ ãíêåìú àúñû îíëäùäìú ìa å½ðñéçè ãçðé.\n"
  566.         "    Ãêþ üéíìíëçç ãçðéíáíâí îïíðñaìðñáa, æaìçëaäëíâí þæúéíáúëç óaèêaëç, Áú ëíåäñä "
  567.         "òéaæañû ñíêûéí ïäaêûìí ìäíàôíãçëúä ãêþ éíîçïíáaìçþ óaèêú.\n"
  568.         "    Îïíðñí îïíðñaáûñä âaêíöéç ò ñäô þæúéíá, éíñíïúä ìäíàôíãçëú Áaë ãêþ íàùäìçþ á "
  569.         "Áaøäè ðçðñäëä.\n"
  570.       )
  571.     )
  572.  
  573.     (set #copy "Éíîçïòý %s á %s...")
  574.   )
  575. )
  576. ;**************************************************************************
  577. ;
  578. ; Danish strings
  579. ;
  580.  
  581. (if (= @language "dansk")
  582.   (
  583.     (set #default-lang #dansk-lang)
  584.     (set #builtin-lang "(indbygget)")
  585.     (set #bad-kick "Du skal have AmigaOS 2.04 eller nyere for at bruge MultiView.")
  586.     (set #install-parts "Vælg venligst de dele du ønsker installeret")
  587.     (set #item-program "MultiView")
  588.     (set #item-library "FileID.library")
  589.     (set #item-guide "MultiView.guide")
  590.     (set #item-locale "Oversættelser")
  591.  
  592.     (set #parts-header-help
  593.       (cat
  594.         "Her vælger du de forskellige dele af MultiView som du ønsker at "
  595.         "installere. Derefter vælger du detaljerne i installeringen (såsom "
  596.         "hvor de forskellige filer skal installeres). Du kan vælge at "
  597.         "installere følgende dele:\n"
  598.       )
  599.     )
  600.  
  601.     (set #item-program-help
  602.       (cat
  603.         "MultiView: Dette program er en erstatning for C='s MultiView, "
  604.         "og bør installeres i kataloget SYS:Utilities/\n"
  605.       )
  606.     )
  607.  
  608.     (set #item-library-help
  609.       (cat
  610.         "FileID.library: Dette bibliotek indeholder "
  611.         "filtype-genkendelsesfunktioner.\n"
  612.       )
  613.     )
  614.  
  615.     (set #item-guide-help
  616.       (cat
  617.         "MultiView.guide: Brugervejledning, i AmigaGuide®-format. "
  618.         "Den indeholder generel information om MultiView.\n"
  619.       )
  620.     )
  621.  
  622.     (set #item-local-help
  623.       (cat
  624.         "Oversættelser: Hvis du installerer en oversættelse, vil "
  625.         "MultiView og FileID.library kunn køre med de(t) sprog du vælger.\n"
  626.       )
  627.     )
  628.  
  629.     (set #parts-footer-help
  630.       (cat
  631.         "For mere information om disse punkter, se venligst brugervejledningen.\n"
  632.       )
  633.     )
  634.  
  635. ; Only for expert users
  636.     (set #where-library "Hvor ønsker du at installere FileID.library?")
  637.  
  638.     (set #where-library-help
  639.       (cat
  640.         "FileID.library er et funktionsbibliotek. Som sådan forventer "
  641.         "MultiView (og programmerne som bruger det) at denne fil ligger "
  642.         "i \"Libs:\"-stien, så installér denne fil i \"Libs:\"-kataloget "
  643.         "eller vær sikker på at det katalog du installerer det i, er en "
  644.         "del af \"Libs:\"-tildelingen.\n"
  645.       )
  646.     )
  647.  
  648.     (set #where-guide "Hvor ønsker du at installere MultiView.guide?")
  649.  
  650.     (set #where-guide-help
  651.       (cat
  652.         "MultiView.guide er en fil i det normale AmigaGuide®-format. "
  653.         "Da MultiView gør specifik brug af denne fil, kan du installere "
  654.         "den hvor du ønsker. Hvis du har OS3.0 eller nyere, er et sådant "
  655.         "sted \"Help:\", da dette er hvor andre AmigaGuide®-filer ofte "
  656.         "ligger.\n"
  657.       )
  658.     )
  659.  
  660. ; Only for expert users, and an icon wasn't found
  661.     (set #copy-guide-icon "Ønsker du at installere ikonet til MultiView.guide?")
  662.  
  663.     (set #copy-guide-icon-help
  664.       (cat
  665.         "Siden du angav at du var en ekspertbruger, og der lige nu ikke "
  666.         "findes et ikon til MultiView.guide hvor du valgte at installere "
  667.         "det, har du nu chancen for at angive om ikonet også skal "
  668.         "installeres.\n"
  669.       )
  670.     )
  671.  
  672.     (set #which-language "Hvilke sprog ønsker du at installere?")
  673.  
  674.     (set #which-language-help
  675.       (cat
  676.         "Amigaen kan køre i mange forskellige sprog. Hvis du ønsker at "
  677.         "MultiView skal bruge det samme sprog som din Workbench, så skal "
  678.         "en sprogfil kopieres til din harddisk for hvert understøttet "
  679.         "sprog.\n"
  680.         "  For at reducere pladsen som optages af sprogfilerne, kan du "
  681.         "vælge kun at kopiere bestemte sprogfiler.\n"
  682.         "  Du skal bare sætte et hak i boksene til de sprog du ønsker "
  683.         "tilgængelige på dit system.\n"
  684.       )
  685.     )
  686.  
  687.     (set #copy "Kopierer %s til %s...")
  688.   )
  689. )
  690. ;**************************************************************************
  691. ;
  692. ; Swedish strings
  693. ;
  694.  
  695. (if (= @language "svenska")
  696.   (
  697.     (set #default-lang #svenska-lang)
  698.     (set #builtin-lang "(inbyggt)")
  699.     (set #bad-kick "Du måste ha AmigaOS version 2.04 eller högre för att använda MultiView.")
  700.     (set #install-parts "Välj de delar du önskar installera")
  701.     (set #item-program "MultiView")
  702.     (set #item-library "FileID.library")
  703.     (set #item-guide "MultiView.guide")
  704.     (set #item-locale "Översättningar")
  705.  
  706.     (set #parts-header-help
  707.       (cat
  708.         "    Här väljer du de delar av MultiView som du vill installera. Sedan ställer "
  709.         "du in installationsdetaljerna (t ex var de olika filerna skall installeras). "
  710.         "Du kan välja att installera följande delar av programmet:\n"
  711.       )
  712.     )
  713.  
  714.     (set #item-program-help
  715.       (cat
  716.         "    MultiView: Detta program är en ersättning för Commodores MultiView och "
  717.         "bör installeras i lådan SYS:Utilities/.\n"
  718.       )
  719.     )
  720.  
  721.     (set #item-library-help
  722.       (cat
  723.         "    FileID.library: Detta bibliotek innehåller funktioner för igenkänning av "
  724.         "olika filtyper.\n"
  725.       )
  726.     )
  727.  
  728.     (set #item-guide-help
  729.       (cat
  730.         "    MultiView.guide: Manualen i AmigaGuide®-format. Den innehåller "
  731.         "en del generell information om MultiView.\n"
  732.       )
  733.     )
  734.  
  735.     (set #item-local-help
  736.       (cat
  737.         "    Översättningar: Om du installerar en översättning kan MultiView "
  738.         "och FileID.library sedan använda de(t) språk du valt.\n"
  739.       )
  740.     )
  741.  
  742.     (set #parts-footer-help
  743.       (cat
  744.         "    För mer information om dessa delar av programmet, konsultera manualen.\n"
  745.       )
  746.     )
  747.  
  748. ; Only for expert users
  749.     (set #where-library "Var vill du installera FileID.library?")
  750.  
  751.     (set #where-library-help
  752.       (cat
  753.         "    FileID.library är ett s k \"delat bibliotek\". Som sådant "
  754.         "förväntar sig MultiView (och program som använder det) att "
  755.         "detta bibliotek skall vara tillgängligt via \"Libs:\"-tilldelningen; "
  756.         "du bör därför se till att det installeras i \"Libs:\"-lådan "
  757.         "eller att lådan du installerar det i är en del av din "
  758.         "\"Libs:\"-tilldelning.\n"
  759.       )
  760.     )
  761.  
  762.     (set #where-guide "Var vill du installera MultiView.guide?")
  763.  
  764.     (set #where-guide-help
  765.       (cat
  766.         "    MultiView.guide är en fil som följer det standardiserade AmigaGuide®-formatet. "
  767.         "Eftersom MultiView för närvarande utnyttjar denna specifika fil, kan du "
  768.         "installera den någonstans där det passar dig. Om du har OS 3.0 eller högre, "
  769.         "är \"Help:\" lämpligt eftersom det är där andra AmigaGuide®-filer ofta "
  770.         "installeras.\n"
  771.       )
  772.     )
  773.  
  774. ; Only for expert users, and an icon wasn't found
  775.     (set #copy-guide-icon "Vill du installera ikonen för MultiView.guide?")
  776.  
  777.     (set #copy-guide-icon-help
  778.       (cat
  779.         "    Eftersom du angett att du är en expertanvändare och eftersom det för tillfället "
  780.         "inte finns någon ikon för MultiView.guide där du valt att installera filen, "
  781.         "får du en chans att välja om ikonen också skall installeras.\n"
  782.       )
  783.     )
  784.  
  785.     (set #which-language "Vilka språk skall installeras?")
  786.  
  787.     (set #which-language-help
  788.       (cat
  789.         "    Amigan kan användas med flera olika språk.  Om du vill att MultiView "
  790.         "skall använda samma språk som din Amiga Workbench behöver några "
  791.         "katalogfiler kopieras till din hårddisk för varje språk som stöds.\n"
  792.         "    För att spara på utrymmet som språkfilerna tar upp kan du "
  793.         "välja att endast vissa språkfiler kopieras.\n"
  794.         "    Bocka helt enkelt för de språk du vill kunna använda på ditt system.\n"
  795.       )
  796.     )
  797.  
  798.     (set #copy "Kopierar %s till %s...")
  799.   )
  800. )
  801. ;**************************************************************************
  802. ;
  803. ; Italian strings
  804. ;
  805.  
  806. (if (= @language "italiano")
  807.   (
  808.     (set #default-lang #italiano-lang)
  809.     (set #builtin-lang "(built-in)")
  810.     (set #bad-kick "Devi avere la versione 2.04 o superiore di AmigaOS per usare MultiView.")
  811.     (set #install-parts "Per favore scegli le parti che desideri installare")
  812.     (set #item-program "MultiView")
  813.     (set #item-library "FileID.library")
  814.     (set #item-guide "MultiView.guide")
  815.     (set #item-locale "Traduzioni")
  816.  
  817.     (set #parts-header-help
  818.       (cat
  819.         "   Qui scegli le differenti sezioni di MultiView che gradiresti fossero installate. "
  820.         "Dopo di ciò, seleziona il tipo di installazione (come ad esempio "
  821.         "dove dovrebbero essere installati i vari file). Puoi scegliere di installare "
  822.         "le seguenti voci:\n"
  823.       )
  824.     )
  825.  
  826.     (set #item-program-help
  827.       (cat
  828.         "   MultiView: Questo programma è un sostituto del C= MultiView e dovrebbe essere "
  829.         "installato nel cassetto SYS:Utilities/.\n"
  830.       )
  831.     )
  832.  
  833.     (set #item-library-help
  834.       (cat
  835.         "   FileID.library: Questa libreria possiede la funzione di riconoscimento del tipo file.\n"
  836.       )
  837.     )
  838.  
  839.     (set #item-guide-help
  840.       (cat
  841.         "   MultiView.guide: Il manuale, in formato AmigaGuide®. Contiene "
  842.         "delle informazioni generali su MultiView.\n"
  843.       )
  844.     )
  845.  
  846.     (set #item-local-help
  847.       (cat
  848.         "   Traduzioni: Se installi una traduzione, allora MultiView  "
  849.         "e la FileID.library possono funzionare nelle lingue da te selezionate.\n"
  850.       )
  851.     )
  852.  
  853.     (set #parts-footer-help
  854.       (cat
  855.         "   Per ulteriori informazioni su queste voci, per favore fai riferimento al manuale.\n"
  856.       )
  857.     )
  858.  
  859.     ; Only for expert users
  860.     (set #where-library "Dove vuoi installare la FileID.library?")
  861.  
  862.     (set #where-library-help
  863.       (cat
  864.         "   FileID.library è una libreria condivisa. Così come, MultiView "
  865.         "(e le applicazioni che la usano) questo file attende che sia "
  866.         "disponibile attraverso la \"Libs:\"-assign, così per favore installa questo "
  867.         "file nel cassetto \"Libs:\", o assicurati che il cassetto "
  868.         "dove lo installi sia parte del tuo \"Libs:\"-assign.\n"
  869.       )
  870.     )
  871.  
  872.     (set #where-guide "Dove vuoi installare la MultiView.guide?")
  873.  
  874.     (set #where-guide-help
  875.       (cat
  876.         "   MultiView.guide è un file nel formato standard AmigaGuide®. "
  877.         "Dato che MultiView correntemente fa un uso specifico di questo file, puoi installarlo "
  878.         "dove lo trovi più comodo. Se hai l'OS 3.0 o superiore, "
  879.         "il luogo può essere \"Help:\", dato che questo ed altri file AmigaGuide® "
  880.         "sono spesso lì installati.\n"
  881.       )
  882.     )
  883.  
  884.     ; Only for expert users, and an icon wasn't found
  885.     (set #copy-guide-icon "Vuoi installare l'icona per la MultiView.guide?")
  886.  
  887.     (set #copy-guide-icon-help
  888.       (cat
  889.         "   Dato che hai detto che sei un utente esperto, ed al momento non "
  890.         "vi è nessuna icona per la MultiView.guide da selezionare per installarla, "
  891.         "puoi avere la possibilità di decidere il tipo di icona che dovrebbe "
  892.         "essere installata.\n"
  893.       )
  894.     )
  895.  
  896.     (set #which-language "Quali lingue vuoi siano installate?")
  897.  
  898.     (set #which-language-help
  899.       (cat
  900.         "   L'Amiga può essere utilizzato con diverse lingue. Se vuoi che "
  901.         "MultiView usi la stessa lingua del tuo Workbench, allora alcuni "
  902.         "cataloghi devono essere copiati nel tuo harddisk  per ogni lingua "
  903.         "supportata.\n"
  904.         "   Per diminuire l'ammontare dello spazio occupato dai "
  905.         "cataloghi, puoi scegliere di avere solamente i file di una determinata "
  906.         "lingua.\n"
  907.         "   Cioè contrassegna solo per la lingua che desideri avere "
  908.         "disponibile nel tuo sistema.\n"
  909.       )
  910.     )
  911.  
  912.     (set #copy "Sto copiando %s in %s...")
  913.   )
  914. )
  915.  
  916. ;**************************************************************************
  917. ; Salut,t'es vraiment sure de savoir parler français?!
  918. ; Traduit par CMwa
  919. ;
  920.  
  921. (if (= @language "français")
  922.   (
  923.     (set #default-lang #français-lang)
  924.     (set #builtin-lang "(interne)")
  925.     (set #bad-kick "Vous devez avoir au moins la version 2.04 d'AmigaOS pour utiliser MultiView.")
  926.     (set #install-parts "Veuillez sélectionner les parties à installer")
  927.     (set #item-program "MultiView")
  928.     (set #item-library "FileID.library")
  929.     (set #item-guide "MultiView.guide")
  930.     (set #item-locale "Traduction")
  931.  
  932.     (set #parts-header-help
  933.       (cat
  934.         "   Ici,vous sélectionnez les différentes parties de MultiView que vous désirez installer. "
  935.         "Après ça, vous sélectionnez le type d'installation (par exemple, "
  936.         "où les différends fichiers doivent être installés). vous pouvez choisir d'installer "
  937.         "les fichiers suivants:\n"
  938.       )
  939.     )
  940.  
  941.     (set #item-program-help
  942.       (cat
  943.         "   MultiView: Ce programme remplace le MultiView C=. Il doit être "
  944.         "installé dans le tiroir SYS:Utilities/.\n"
  945.       )
  946.     )
  947.  
  948.     (set #item-library-help
  949.       (cat
  950.         "   FileID.library: Cette librairie contient la fonction de reconnaissance du type de fichier.\n"
  951.       )
  952.     )
  953.  
  954.     (set #item-guide-help
  955.       (cat
  956.         "   MultiView.guide: Le manuel, au format AmigaGuide®. Il contient "
  957.         "des information générales sur MultiView.\n"
  958.       )
  959.     )
  960.  
  961.     (set #item-local-help
  962.       (cat
  963.         "   Traduction: Si la traduction est installée, alors MultiView  "
  964.         "et la FileID.library fonctionneront avec le langage sélectinnée.\n"
  965.       )
  966.     )
  967.  
  968.     (set #parts-footer-help
  969.       (cat
  970.         "   Pour plus d'information sur ces items, veuillez vous référer au manuel.\n"
  971.       )
  972.     )
  973.  
  974.     ; Only for expert users
  975. ; Only for expert users
  976. (set #where-program "Où voulez-vous installer le programme principal?")
  977. (set #where-program-help
  978.   (cat
  979.     "    MultiView: Ce programme  remplace le vieux Multiview écrit "
  980.     "par les programmeurs de Commodore. Vous devez l'installer dans SYS:Utilities.\n"
  981.   )
  982. )
  983.  
  984.     (set #where-library "Où voulez-vous installer la FileID.library?")
  985.  
  986.     (set #where-library-help
  987.       (cat
  988.         "   FileID.library est une librairie partagée. Ainsi, MultiView "
  989.         "(et les applications qui l'utilise) cherche ce fichier vers "
  990.         " \"Libs:\"-assign, veuillez donc installer ce "
  991.         "fichier dans \"Libs:\", ou assurez-vous que le tiroir "
  992.         "où vous l'instalez fait partie de votre \"Libs:\"-assign.\n"
  993.       )
  994.     )
  995.  
  996.     (set #where-guide "Où voulez-vous installer MultiView.guide?")
  997.  
  998.     (set #where-guide-help
  999.       (cat
  1000.         "   MultiView.guide est un fichier au format standard AmigaGuide®. "
  1001.         "Actuellement, MultiView fait un usage spécifique de ce fichier, vous pouvez l'installer "
  1002.         "où vous le trouvez le plus commode. Si vous avez au moins l'OS 3.0, "
  1003.         "le tiroir \"Help:\" est le plus logique puisque les autres fichiers AmigaGuide® "
  1004.         "y sont installés.\n"
  1005.       )
  1006.     )
  1007.  
  1008.     ; Only for expert users, and an icon wasn't found
  1009.     (set #copy-guide-icon "Voulez-vous installer l'icône pour MultiView.guide?")
  1010.  
  1011.     (set #copy-guide-icon-help
  1012.       (cat
  1013.         "   Dato che hai detto che sei un utente esperto, ed al momento non "
  1014.         "vi è nessuna icona per la MultiView.guide da selezionare per installarla, "
  1015.         "puoi avere la possibilità di decidere il tipo di icona che dovrebbe "
  1016.         "essere installata.\n"
  1017.       )
  1018.     )
  1019.  
  1020.     (set #which-language "Quels langue voulez-vous installer?")
  1021.  
  1022.     (set #which-language-help
  1023.       (cat
  1024.         "   L'Amiga peut être utilisé avec divers langage. Si vous voulez que "
  1025.         "MultiView utilise la même langue que votre Workbench, alors un "
  1026.         "catalogue doit être copié sur votre disque dur  pour que votre langue "
  1027.         "soit supportée.\n"
  1028.         "   Pour diminuer la quantité d'espace occupé par "
  1029.         "le catalogue, vous pouvez n'avoir que le fichier concernant "
  1030.         "votre langue.\n"
  1031.         "   Sélectionnez simplement la langue "
  1032.         "utilisé sur votre système.\n"
  1033.       )
  1034.     )
  1035.  
  1036.     (set #copy "Copie de %s vers %s...")
  1037.   )
  1038. )
  1039.  
  1040. ;**************************************************************************
  1041. ;
  1042. ; The actual installation script
  1043. ;
  1044. ; First some initializations
  1045. ;
  1046.  
  1047. ; Check Kickstart version. Exit if not at least 2.04
  1048. (if (< (/ (getversion) 65536) 37)
  1049.         (abort #bad-kick)
  1050. )
  1051.  
  1052. ; Since files are scatter installed, don't mention any specific location.
  1053. (set @default-dest "")
  1054.  
  1055. ; Request proportinal fonts, if supported. This string is
  1056. ; prepended to the first askoptions choice.
  1057. (if (>= @installer-version 2752518)     ; 42 * 65536 + 6
  1058.   ; At least version 42.6
  1059.   (set #propfont "p")
  1060.   ; Pre V42
  1061.   (set #propfont "")
  1062. )
  1063.  
  1064. (set #item-num-lib       1)
  1065. (set #item-num-prog      2)
  1066. (set #item-num-guide     4)
  1067. (set #item-num-locale    8)
  1068.  
  1069. ; Find out default values for parts to install
  1070. (set #install-default (BITOR #item-num-prog #item-num-lib #item-num-guide))
  1071.  
  1072. ; Locale installed?
  1073. (if (AND (= 2 (exists "Locale:" (noreq))) (< 0 (getversion "locale.library" (resident))))
  1074.   (set #install-default (BITOR #install-default #item-num-locale))
  1075. )
  1076.  
  1077. ; Everything ready
  1078.  
  1079. (welcome)
  1080.  
  1081. ; Ask the user what to install
  1082. (set #install-files
  1083.   (askoptions
  1084.     (prompt #install-parts)
  1085.     (help #parts-header-help
  1086.                         #item-program-help
  1087.       #item-library-help
  1088.       #item-guide-help
  1089.       #item-local-help
  1090.       #parts-footer-help "\n"
  1091.       @askoptions-help)
  1092.     (choices
  1093.       (cat #propfont #item-program)
  1094.                         #item-library
  1095.       #item-guide
  1096.       #item-locale
  1097.     )
  1098.     (default #install-default)
  1099.   )
  1100. )
  1101.  
  1102. ; Ask the user for the location of all parts
  1103.  
  1104. (set #program-dest  "SYS:Utilities")
  1105.  
  1106. ; Location for MultiView program (for experts)
  1107. (if (AND (= @user-level 2) (BITAND #install-files #item-num-prog))
  1108.   (set #program-dest
  1109.     (askdir
  1110.       (prompt  #where-program)
  1111.       (help    #where-program-help "\n" @askdir-help)
  1112.       (default #program-dest)
  1113.     )
  1114.   )
  1115. )
  1116.  
  1117. (set #library-dest  "Libs:")
  1118.  
  1119. ; Location for FileID.library (for experts)
  1120. (if (AND (= @user-level 2) (BITAND #install-files #item-num-lib))
  1121.   (set #library-dest
  1122.     (askdir
  1123.       (prompt  #where-library)
  1124.       (help    #where-library-help "\n" @askdir-help)
  1125.       (default #library-dest)
  1126.     )
  1127.   )
  1128. )
  1129.  
  1130. ; Location for MultiView.guide
  1131. (if (BITAND #install-files #item-num-guide)
  1132.   (
  1133.     (set #guide-dest "Work:")
  1134.  
  1135.     (if (exists "Help:")
  1136.       (set #guide-dest "Help:")
  1137.     )
  1138.  
  1139.     (set #guide-dest
  1140.       (askdir
  1141.         (prompt  #where-guide)
  1142.         (help    #where-guide-help "\n" @askdir-help)
  1143.         (default #guide-dest)
  1144.       )
  1145.     )
  1146.  
  1147.     (set #dest-guide-name (tackon #guide-dest "Multiview.guide.info"))
  1148.  
  1149.     (set #guide-icon
  1150.       (if (AND (= @user-level 2 ) (= (exists #dest-guide-name) 0))
  1151.         (askbool
  1152.           (prompt #copy-guide-icon)
  1153.           (help #copy-guide-icon-help " ")
  1154.         )
  1155.         0 ; Default is to not copy the icon
  1156.       )
  1157.     )
  1158.   )
  1159. )
  1160.  
  1161. ; .ct
  1162. ; Which languages should be installed?
  1163. (if (BITAND #install-files #item-num-locale)
  1164.   (set #lang
  1165.     (askoptions
  1166.       (prompt #which-language)
  1167.       (help #which-language-help "\n" @askoptions-help)
  1168.       (choices
  1169.         (cat #propfont          "English  " #builtin-lang)
  1170.                                 "Polski"
  1171.         (cat                    "Deutsch")
  1172.                                 "Norsk"
  1173.                                 "Russian"
  1174.                                 "Dansk"
  1175.                                 "Svenska"
  1176.                                 "Italiano"
  1177.                                 "Français"
  1178.                                 "Czech"
  1179.                                 "Croatian"
  1180.                                 "Portugese-brazil"
  1181.       )
  1182.       (default #default-lang)
  1183.     )
  1184.   )
  1185. )
  1186.  
  1187. ; Everything set up. Now do the actual installation
  1188.  
  1189. (complete 0)
  1190.  
  1191. (if (BITAND #install-files #item-num-prog)
  1192.   (
  1193.     (copyfiles
  1194.       (prompt (#copy "MultiView" #program-dest))
  1195.       (source "MultiView")
  1196.       (dest #program-dest)
  1197.     )
  1198.     (copyfiles
  1199.       (prompt (#copy "MultiView" #program-dest))
  1200.       (source "MultiView.info")
  1201.       (dest #program-dest)
  1202.     )
  1203.   )
  1204. )
  1205.  
  1206. (complete 20)
  1207.  
  1208. (if (BITAND #install-files #item-num-lib)
  1209.   (
  1210.     (copylib
  1211.       (prompt (#copy "FileID.library" #library-dest))
  1212.       (source "libs/FileID.library")
  1213.       (dest #library-dest)
  1214.     )
  1215.   )
  1216. )
  1217.  
  1218. (complete 60)
  1219.  
  1220. ;this part dont work because Workbench say"this icon haven't tool".where is the matter??
  1221. (if (BITAND #install-files #item-num-guide)
  1222.   (
  1223.     (set #guide-source
  1224.                         (tackon (tackon "Docs/" @language) "MultiView.guide")
  1225.                 )
  1226.           (copyfiles
  1227.       (prompt (#copy "MultiView.guide" #guide-dest))
  1228.       (source #guide-source)
  1229.       (dest   #guide-dest)
  1230.     )
  1231.  
  1232.     (if #guide-icon
  1233.       (
  1234.         (copyfiles
  1235.           (prompt (#copy "MultiView.guide.info" #guide-dest))
  1236.           (source (tackon (tackon "Docs/" @language) "MultiView.guide.info"))
  1237.           (dest   #guide-dest)
  1238.         )
  1239.       )
  1240.     )
  1241.   )
  1242. )
  1243.  
  1244. (complete 75)
  1245.  
  1246. ; .ct
  1247. (if (BITAND #install-files #item-num-locale)
  1248.   (
  1249.     (set #n 0)
  1250.  
  1251.     (while
  1252.       (set #language
  1253.         (select #n
  1254.           "Deutsch"
  1255.           "English"
  1256.           "Polski"
  1257.                                         "Norsk"
  1258.                                         "Russian"
  1259.                                         "Dansk"
  1260.                                         "Svenska"
  1261.                                         "Italiano"
  1262.                                         "Czech"
  1263.                                         "Croatian"
  1264.                                         "Portugese-brazil"
  1265.           ""
  1266.         )
  1267.       )
  1268.  
  1269.       (
  1270.         (if (AND (IN #lang #n) (<> #language "English"))
  1271.           (
  1272.             (set #catalog
  1273.               (tackon "Catalogs"
  1274.                 (tackon #language "MultiView.catalog")
  1275.               )
  1276.             )
  1277.  
  1278.             (set #destination (tackon "Locale:Catalogs/" #language))
  1279.  
  1280.             (if (exists #catalog)
  1281.               (copylib
  1282.                 (prompt (#copy #catalog #destination))
  1283.                 (source #catalog)
  1284.                 (dest   #destination)
  1285.               )
  1286.             )
  1287.  
  1288.             (set #catalog
  1289.               (tackon "Catalogs"
  1290.                 (tackon #language "FileID_lib.catalog")
  1291.               )
  1292.             )
  1293.  
  1294.             (if (exists #catalog)
  1295.               (copylib
  1296.                 (prompt (#copy #catalog #destination))
  1297.                 (source #catalog)
  1298.                 (dest   #destination)
  1299.               )
  1300.             )
  1301.  
  1302.           )
  1303.         )
  1304.  
  1305.         (set #n (+ #n 1))
  1306.       )
  1307.     )
  1308.   )
  1309. )
  1310.  
  1311. (complete 100)
  1312.  
  1313. (exit)
  1314.